//////////

#include <string.h>
#include "../basic/operator.h"

Cell* make_syntax(Scheme *sc, const char *name) {
	Cell* symbol = make_symbol(sc, name);
	symbol->_type = SYNTAX_TYPE;
	return symbol;
}

/*
Cell* syntax2op(Cell* p) {
	const char *s = car(p)->_string;

	if (strcmp(s, "if") == 0) {////
		return cell_op_if0;
	} else if (strcmp(s, "or") == 0) {////
		return cell_op_or0;
	} else if (strcmp(s, "and") == 0) {////
		return cell_op_and0;
	} else if (strcmp(s, "let") == 0) {////
		return cell_op_let0;
	} else if (strcmp(s, "case") == 0) {////
		return cell_op_case0;
	} else if (strcmp(s, "cond") == 0) {////
		return cell_op_cond0;
	} else if (strcmp(s, "let*") == 0) {////
		return cell_op_letstar0;
	} else if (strcmp(s, "set!") == 0) {////
		return cell_op_set0;
	} else if (strcmp(s, "begin") == 0) {////
		return cell_op_begin;
	} else if (strcmp(s, "delay") == 0) {////
		return cell_op_delay;
	} else if (strcmp(s, "quote") == 0) {////
		return cell_op_quote;
	} else if (strcmp(s, "lambda") == 0) {////
		return cell_op_lambda;
	} else if (strcmp(s, "define") == 0) {////
		return cell_op_def0;
	} else if (strcmp(s, "letrec") == 0) {////
		return cell_op_let0rec;
	} else if (strcmp(s, "cons-stream") == 0) {////
		return cell_op_c0stream;
	}

	return &g_nil;
}
*/
